home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / t3_1 / risc_src.lha / risc_sources / comp / primops / primop_build.doc < prev    next >
Encoding:
Text File  |  1989-06-30  |  3.2 KB  |  73 lines
  1. ;Below is the procedure for compiling the primops.
  2.  
  3. ;;; To compile system files that contain primops set *COMPILE-PRIMOPS?* to #F
  4. ;;; and ignore the "primops not compiled for this system" messages.
  5.  
  6. (set (repl-env) orbit-env)
  7. (orbit-mips-setup 't3_Primops)
  8. (create-support '(t3_Primops mipsconstants) '(t3_Primops mipsconstants))
  9. (load '(t3_Primops mipsconstants t) orbit-env)
  10. (orbit-init 'base)
  11. (set (orbit-syntax-table) primop-syntax-table)
  12. (set *compile-primops?* nil)
  13. (create-support '(t3_Primops mipsprimops)   '(t3_Primops mipsprimops))
  14. (create-support '(t3_Primops mipsarith)     '(t3_Primops mipsarith))
  15. (create-support '(t3_Primops locations)    '(t3_Primops locations))
  16. (create-support '(t3_Primops mipslow)       '(t3_Primops mipslow))
  17. (create-support '(t3_Primops predicates)       '(t3_Primops predicates))
  18. (orbit-init 'base  
  19.             'constants 'primops 'arith 'locations 'low 'predicates)
  20. (create-support '(t3_Primops open)    '(t3_Primops open))
  21. (create-support '(t3_Primops aliases) '(t3_Primops aliases))
  22. (create-support '(t3_Primops carcdr)  '(t3_Primops carcdr))
  23. (create-support '(t3_Primops mipsgenarith)  '(t3_Primops mipsgenarith))
  24.  
  25.  
  26. ;;; Ready to COMFILE the MIPS files.
  27.  
  28.  
  29. ;;; To compile the primop code in the VINF files, run the following in an
  30. ;;; Orbit for the machine on which you want to use the MINF.
  31. ;;; WARNING: if you COMFILE the MIPS primop files in the same directory you
  32. ;;; will clobber the compiled versions of the VINF files.
  33. (compile-primop-source '(t3_Primops mipsprimops   mpi))
  34. (compile-primop-source '(t3_Primops mipsarith     mpi))
  35. (compile-primop-source '(t3_Primops locations    mpi))
  36. (compile-primop-source '(t3_Primops mipslow       mpi))
  37. (compile-primop-source '(t3_Primops mipsgenarith    mpi))
  38.  
  39.  
  40.  
  41. (set (repl-env) orbit-env)
  42. (create-support '(t3_primops nconstants) '(t3_primops nconstants))
  43. (orbit-n32-setup 't3_primops)
  44. (load '(t3_primops nconstants t) orbit-env)
  45. (orbit-init 'base)
  46. (set (orbit-syntax-table) primop-syntax-table)
  47. (set *compile-primops?* nil)
  48. (create-support '(t3_primops n32primops)   '(t3_primops n32primops))
  49. (create-support '(t3_primops n32arith)     '(t3_primops n32arith))
  50. (create-support '(t3_primops locations)    '(t3_primops locations))
  51. (create-support '(t3_primops n32low)       '(t3_primops n32low))
  52. (create-support '(t3_primops predicates)       '(t3_primops predicates))
  53. (orbit-init 'base  
  54.             'constants 'primops 'arith 'locations 'low 'predicates)
  55. (create-support '(t3_primops open)    '(t3_primops open))
  56. (create-support '(t3_primops aliases) '(t3_primops aliases))
  57. (create-support '(t3_primops carcdr)  '(t3_primops carcdr))
  58. (create-support '(t3_primops genarith)  '(t3_primops genarith))
  59.  
  60.  
  61. ;;; Ready to COMFILE the N32 files.
  62.  
  63.  
  64. ;;; To compile the primop code in the VINF files, run the following in an
  65. ;;; Orbit for the machine on which you want to use the MINF.
  66. ;;; WARNING: if you COMFILE the N32 primop files in the same directory you
  67. ;;; will clobber the compiled versions of the VINF files.
  68. (compile-primop-source '(t3_primops n32primops   ni))
  69. (compile-primop-source '(t3_primops n32arith     ni))
  70. (compile-primop-source '(t3_primops locations    ni))
  71. (compile-primop-source '(t3_primops n32low       ni))
  72. (compile-primop-source '(t3_primops n32genarith     ni))
  73.